. . : : PERI TOWER HOTEL : : . . Guetbook

<% Item = Request.Form ("strItem") strId = Request.QueryString ("Id") strErase = Request.Form ("strErase") strPass = Request.Form ("strPass") If Item = 1 and strPass = "" Then Item = "" strId = strErase End If %>

<% If Item="" Then set objConn = Server.CreateObject("ADODB.Connection") set objRs=Server.CreateObject("ADODB.Recordset") strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\guestbook.mdb") objConn.Open strConn strSQL = "Select * From Messages Where Id=" & strId objRs.Open strSQL, objConn %>

The Record Below Will Be Deleted From The GuestBook


Heading	:	<%=objRs("Heading")%>
Name Surname	:	<%=objRs("Name") & " " & objRs("Surname")%>
Email	:	<%=objRs("Email")%>
Message	:	<%=objRs("Message")%>

Please Enter The Password To Delete This Record

PASSWORD

<% objRs.close set objRs=nothing objConn.close set objConn=nothing Else If strPass = "peri1907" Then set objConn = Server.CreateObject("ADODB.Connection") set objRs=Server.CreateObject("ADODB.Recordset") strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\guestbook.mdb") objConn.Open strConn strSQL = "Delete * From Messages Where Id=" & strErase objConn.Execute strSQL %>

The Requested Record Deleted Successfully

Return To GuestBook

<% Else %>

The Password You Entered Is Wrong

Go Back

<% End If End If %>